home *** CD-ROM | disk | FTP | other *** search
/ El Mac 1 / Magazine.iso / EL MAC 1 / Infotenimiento / Rednex / REDNEX.DIR / 00026.ls < prev    next >
Encoding:
Text File  |  1995-08-21  |  3.1 KB  |  123 lines
  1. on wait t
  2.   startTimer()
  3.   set delay to the timer
  4.   repeat while delay < t
  5.     set delay to the timer
  6.   end repeat
  7. end
  8.  
  9. on ljudniva
  10.   set x to the volume of sound 1
  11.   repeat while x > 0
  12.     set the volume of sound 1 to the volume of sound 1 - 20
  13.     set the volume of sound 2 to the volume of sound 1 - 20
  14.     updateStage()
  15.     wait(3)
  16.   end repeat
  17. end
  18.  
  19. on idle
  20.   global Vcursors, status
  21.   if (Vcursors = 0) and (the machineType = 256) then
  22.     cursor(-1)
  23.   else
  24.     if the mouseCast = 775 then
  25.       cursor([781, 782])
  26.     else
  27.       if the mouseCast = 65 then
  28.         cursor([49, 50])
  29.       else
  30.         if the mouseCast = 62 then
  31.           cursor([49, 50])
  32.         else
  33.           if the mouseCast = 771 then
  34.             cursor([781, 782])
  35.           else
  36.             if the mouseCast = 55 then
  37.               cursor([781, 782])
  38.             else
  39.               if the mouseCast = 56 then
  40.                 cursor([781, 782])
  41.               else
  42.                 if the mouseCast = 57 then
  43.                   cursor([781, 782])
  44.                 else
  45.                   if the mouseCast = 29 then
  46.                     cursor([781, 782])
  47.                   else
  48.                     if the mouseCast = 30 then
  49.                       cursor([781, 782])
  50.                     else
  51.                       if the mouseCast = 18 then
  52.                         cursor([781, 782])
  53.                       else
  54.                         if the mouseCast = 23 then
  55.                           cursor([781, 782])
  56.                         else
  57.                           if the mouseCast = 777 then
  58.                             cursor([787, 788])
  59.                           else
  60.                             if the mouseCast = 779 then
  61.                               cursor([789, 790])
  62.                             else
  63.                               if the mouseCast = 770 then
  64.                                 cursor([791, 792])
  65.                               else
  66.                                 if the mouseCast = 761 then
  67.                                   cursor([795, 796])
  68.                                 else
  69.                                   if the mouseCast = 760 then
  70.                                     cursor([797, 798])
  71.                                   else
  72.                                     cursor([799, 800])
  73.                                   end if
  74.                                 end if
  75.                               end if
  76.                             end if
  77.                           end if
  78.                         end if
  79.                       end if
  80.                     end if
  81.                   end if
  82.                 end if
  83.               end if
  84.             end if
  85.           end if
  86.         end if
  87.       end if
  88.     end if
  89.   end if
  90. end
  91.  
  92. on laddahiss
  93.   cursor(4)
  94.   repeat with x = 74 to 112
  95.     preLoadCast(x)
  96.   end repeat
  97.   cursor(-1)
  98. end
  99.  
  100. on laddaupphiss
  101.   cursor(4)
  102.   repeat with x = 148 to 158
  103.     preLoadCast(x)
  104.   end repeat
  105.   cursor(-1)
  106. end
  107.  
  108. on tommaupphiss
  109.   cursor(4)
  110.   repeat with x = 148 to 158
  111.     unLoadCast(x)
  112.   end repeat
  113.   cursor(-1)
  114. end
  115.  
  116. on framtillhiss
  117.   cursor(4)
  118.   repeat with x = 159 to 162
  119.     preLoadCast(x)
  120.   end repeat
  121.   cursor(-1)
  122. end
  123.